/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 02 Help & Utilities / STRIP.BIN / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 35 20 50 4f 4b 45 35 36 | 2c 33 31 3a 43 4c 52 3a |5 POKE56|,31:CLR:|
|00000010| 47 4f 54 4f 32 30 31 30 | 0a 31 30 20 5a 24 3d 43 |GOTO2010|.10 Z$=C|
|00000020| 48 52 24 28 2e 29 3a 50 | 52 49 4e 54 22 93 11 22 |HR$(.):P|RINT".."|
|00000030| 0a 31 31 20 50 52 49 4e | 54 22 11 45 4e 54 45 52 |.11 PRIN|T".ENTER|
|00000040| 20 44 49 53 4b 20 44 52 | 49 56 45 20 44 45 56 49 | DISK DR|IVE DEVI|
|00000050| 43 45 20 4e 55 4d 42 45 | 52 2e 22 0a 31 32 20 50 |CE NUMBE|R.".12 P|
|00000060| 52 49 4e 54 22 11 28 45 | 4e 54 45 52 20 30 20 54 |RINT".(E|NTER 0 T|
|00000070| 4f 20 45 58 49 54 2e 29 | 22 0a 31 33 20 50 52 49 |O EXIT.)|".13 PRI|
|00000080| 4e 54 3a 50 52 49 4e 54 | 22 20 20 38 91 22 3a 49 |NT:PRINT|"  8.":I|
|00000090| 4e 50 55 54 44 3a 49 46 | 44 3d 30 54 48 45 4e 45 |NPUTD:IF|D=0THENE|
|000000a0| 4e 44 0a 31 34 20 49 46 | 44 2d 38 41 4e 44 32 35 |ND.14 IF|D-8AND25|
|000000b0| 32 54 48 45 4e 50 52 49 | 4e 54 22 11 49 4c 4c 45 |2THENPRI|NT".ILLE|
|000000c0| 47 41 4c 20 44 45 56 49 | 43 45 20 4e 55 4d 42 45 |GAL DEVI|CE NUMBE|
|000000d0| 52 22 3a 47 4f 54 4f 31 | 31 0a 31 35 20 50 4f 4b |R":GOTO1|1.15 POK|
|000000e0| 45 32 2c 33 35 3a 50 4f | 4b 45 31 38 34 2c 38 3a |E2,35:PO|KE184,8:|
|000000f0| 50 4f 4b 45 31 38 35 2c | 38 3a 50 4f 4b 45 31 38 |POKE185,|8:POKE18|
|00000100| 36 2c 44 0a 31 36 20 50 | 4f 4b 45 31 38 33 2c 31 |6,D.16 P|OKE183,1|
|00000110| 3a 50 4f 4b 45 31 38 37 | 2c 32 3a 50 4f 4b 45 31 |:POKE187|,2:POKE1|
|00000120| 38 38 2c 2e 3a 53 59 53 | 36 35 34 37 32 0a 31 37 |88,.:SYS|65472.17|
|00000130| 20 49 46 50 45 45 4b 28 | 37 38 33 29 41 4e 44 31 | IFPEEK(|783)AND1|
|00000140| 54 48 45 4e 43 4c 4f 53 | 45 38 3a 50 52 49 4e 54 |THENCLOS|E8:PRINT|
|00000150| 22 93 11 3f 44 45 56 49 | 43 45 22 3b 44 3b 22 4e |"..?DEVI|CE";D;"N|
|00000160| 4f 54 20 50 52 45 53 45 | 4e 54 22 3a 47 4f 54 4f |OT PRESE|NT":GOTO|
|00000170| 31 31 0a 31 38 20 43 4c | 4f 53 45 38 0a 32 30 20 |11.18 CL|OSE8.20 |
|00000180| 4f 50 45 4e 38 2c 44 2c | 30 2c 22 24 22 0a 32 32 |OPEN8,D,|0,"$".22|
|00000190| 20 50 52 49 4e 54 22 93 | 11 11 4c 4f 41 44 49 4e | PRINT".|..LOADIN|
|000001a0| 47 20 44 49 52 45 43 54 | 4f 52 59 2e 2e 2e 11 11 |G DIRECT|ORY.....|
|000001b0| 22 0a 32 33 20 53 59 53 | 34 39 31 35 32 3a 49 46 |".23 SYS|49152:IF|
|000001c0| 50 45 45 4b 28 32 29 54 | 48 45 4e 32 35 0a 32 34 |PEEK(2)T|HEN25.24|
|000001d0| 20 50 52 49 4e 54 22 11 | 11 4e 4f 20 46 49 4c 45 | PRINT".|.NO FILE|
|000001e0| 53 20 4f 4e 20 44 49 53 | 4b 22 3a 47 4f 54 4f 31 |S ON DIS|K":GOTO1|
|000001f0| 31 0a 32 35 20 50 52 49 | 4e 54 22 93 11 11 45 4e |1.25 PRI|NT"...EN|
|00000200| 54 45 52 20 50 45 54 41 | 53 43 49 49 20 56 41 4c |TER PETA|SCII VAL|
|00000210| 55 45 20 4f 46 20 43 48 | 41 52 41 43 54 45 52 53 |UE OF CH|ARACTERS|
|00000220| 20 54 4f 22 0a 32 36 20 | 50 52 49 4e 54 22 11 42 | TO".26 |PRINT".B|
|00000230| 45 20 53 54 52 49 50 50 | 45 44 20 46 52 4f 4d 20 |E STRIPP|ED FROM |
|00000240| 45 4e 44 20 4f 46 20 46 | 49 4c 45 2e 22 0a 32 37 |END OF F|ILE.".27|
|00000250| 20 50 52 49 4e 54 22 11 | 11 50 52 45 43 45 44 45 | PRINT".|.PRECEDE|
|00000260| 20 56 41 4c 55 45 20 57 | 49 54 48 20 24 20 46 4f | VALUE W|ITH $ FO|
|00000270| 52 20 48 45 58 20 45 4e | 54 52 59 2e 22 0a 32 38 |R HEX EN|TRY.".28|
|00000280| 20 50 52 49 4e 54 22 11 | 50 52 45 53 53 20 52 45 | PRINT".|PRESS RE|
|00000290| 54 55 52 4e 20 46 4f 52 | 20 43 4f 4e 54 52 4f 4c |TURN FOR| CONTROL|
|000002a0| 20 5a 20 28 32 36 20 4f | 52 20 24 31 41 29 2e 22 | Z (26 O|R $1A)."|
|000002b0| 0a 32 39 20 41 24 3d 22 | 22 3a 50 52 49 4e 54 3a |.29 A$="|":PRINT:|
|000002c0| 49 4e 50 55 54 41 24 3a | 49 46 41 24 3d 22 22 54 |INPUTA$:|IFA$=""T|
|000002d0| 48 45 4e 41 24 3d 22 32 | 36 22 0a 33 31 20 47 4f |HENA$="2|6".31 GO|
|000002e0| 53 55 42 34 30 30 3a 49 | 46 46 54 48 45 4e 32 39 |SUB400:I|FFTHEN29|
|000002f0| 0a 33 32 20 50 52 49 4e | 54 22 93 11 11 4f 4e 45 |.32 PRIN|T"...ONE|
|00000300| 20 4d 4f 4d 45 4e 54 20 | 50 4c 45 41 53 45 2e 2e | MOMENT |PLEASE..|
|00000310| 2e 22 0a 33 35 20 50 4f | 4b 45 32 2c 41 3a 4f 50 |.".35 PO|KE2,A:OP|
|00000320| 45 4e 31 35 2c 44 2c 31 | 35 0a 34 30 20 47 4f 53 |EN15,D,1|5.40 GOS|
|00000330| 55 42 35 30 30 3a 43 4c | 4f 53 45 38 3a 4f 50 45 |UB500:CL|OSE8:OPE|
|00000340| 4e 38 2c 44 2c 38 2c 22 | 23 22 3a 50 52 49 4e 54 |N8,D,8,"|#":PRINT|
|00000350| 23 31 35 2c 22 55 31 22 | 3b 38 3b 30 3b 31 38 3b |#15,"U1"|;8;0;18;|
|00000360| 53 0a 34 35 20 50 52 49 | 4e 54 23 31 35 2c 22 42 |S.45 PRI|NT#15,"B|
|00000370| 2d 50 22 3b 38 3b 50 2b | 31 0a 34 37 20 47 45 54 |-P";8;P+|1.47 GET|
|00000380| 23 38 2c 41 24 3a 50 4f | 4b 45 31 35 35 2c 41 53 |#8,A$:PO|KE155,AS|
|00000390| 43 28 41 24 2b 5a 24 29 | 0a 35 30 20 47 45 54 23 |C(A$+Z$)|.50 GET#|
|000003a0| 38 2c 41 24 3a 50 4f 4b | 45 31 35 36 2c 41 53 43 |8,A$:POK|E156,ASC|
|000003b0| 28 41 24 2b 5a 24 29 0a | 35 31 20 50 52 49 4e 54 |(A$+Z$).|51 PRINT|
|000003c0| 23 31 35 2c 22 42 2d 50 | 22 3b 38 3b 50 2b 32 38 |#15,"B-P|";8;P+28|
|000003d0| 0a 35 32 20 47 45 54 23 | 38 2c 41 24 3a 4c 3d 41 |.52 GET#|8,A$:L=A|
|000003e0| 53 43 28 41 24 2b 5a 24 | 29 0a 35 35 20 47 45 54 |SC(A$+Z$|).55 GET|
|000003f0| 23 38 2c 41 24 3a 48 3d | 41 53 43 28 41 24 2b 5a |#8,A$:H=|ASC(A$+Z|
|00000400| 24 29 0a 35 37 20 50 52 | 49 4e 54 22 11 11 53 54 |$).57 PR|INT"..ST|
|00000410| 52 49 50 50 49 4e 47 20 | 43 48 41 52 41 43 54 45 |RIPPING |CHARACTE|
|00000420| 52 53 20 5b 43 48 52 24 | 28 22 3b 4d 49 44 24 28 |RS [CHR$|(";MID$(|
|00000430| 53 54 52 24 28 41 29 2c | 32 29 3b 22 29 5d 2e 2e |STR$(A),|2);")]..|
|00000440| 2e 22 0a 36 30 20 50 4f | 4b 45 31 34 33 2c 32 3a |.".60 PO|KE143,2:|
|00000450| 53 59 53 34 39 35 32 34 | 0a 36 32 20 49 46 4c 3d |SYS49524|.62 IFL=|
|00000460| 50 45 45 4b 28 32 35 31 | 29 41 4e 44 48 3d 50 45 |PEEK(251|)ANDH=PE|
|00000470| 45 4b 28 32 35 32 29 54 | 48 45 4e 39 31 0a 36 35 |EK(252)T|HEN91.65|
|00000480| 20 50 52 49 4e 54 23 31 | 35 2c 22 55 31 22 3b 38 | PRINT#1|5,"U1";8|
|00000490| 3b 30 3b 31 38 3b 53 0a | 37 30 20 50 52 49 4e 54 |;0;18;S.|70 PRINT|
|000004a0| 23 31 35 2c 22 42 2d 50 | 22 3b 38 3b 50 2b 32 38 |#15,"B-P|";8;P+28|
|000004b0| 0a 37 35 20 50 52 49 4e | 54 23 38 2c 43 48 52 24 |.75 PRIN|T#8,CHR$|
|000004c0| 28 50 45 45 4b 28 32 35 | 31 29 29 3b 0a 38 30 20 |(PEEK(25|1));.80 |
|000004d0| 50 52 49 4e 54 23 38 2c | 43 48 52 24 28 50 45 45 |PRINT#8,|CHR$(PEE|
|000004e0| 4b 28 32 35 32 29 29 3b | 0a 38 35 20 50 52 49 4e |K(252));|.85 PRIN|
|000004f0| 54 23 31 35 2c 22 55 32 | 22 3b 38 3b 30 3b 31 38 |T#15,"U2|";8;0;18|
|00000500| 3b 53 0a 39 30 20 50 52 | 49 4e 54 22 11 11 56 41 |;S.90 PR|INT"..VA|
|00000510| 4c 49 44 41 54 49 4e 47 | 20 28 46 45 57 45 52 20 |LIDATING| (FEWER |
|00000520| 42 4c 4f 43 4b 53 29 2e | 2e 2e 11 11 22 3a 50 52 |BLOCKS).|....":PR|
|00000530| 49 4e 54 23 31 35 2c 22 | 56 30 3a 22 0a 39 31 20 |INT#15,"|V0:".91 |
|00000540| 43 4c 4f 53 45 38 3a 43 | 4c 4f 53 45 31 35 0a 39 |CLOSE8:C|LOSE15.9|
|00000550| 32 20 51 24 3d 43 48 52 | 24 28 33 34 29 3a 50 52 |2 Q$=CHR|$(34):PR|
|00000560| 49 4e 54 22 93 11 9d 22 | 3b 50 45 45 4b 28 32 35 |INT"..."|;PEEK(25|
|00000570| 33 29 2b 32 35 36 2a 50 | 45 45 4b 28 32 35 34 29 |3)+256*P|EEK(254)|
|00000580| 3b 22 43 48 41 52 41 43 | 54 45 52 09 00 57 45 52 |;"CHARAC|TER..WER|
|00000590| 45 20 52 45 4d 4f 56 45 | 44 2e 22 0a 39 34 20 50 |E REMOVE|D.".94 P|
|000005a0| 52 49 4e 54 22 11 11 11 | 41 46 54 45 52 20 31 30 |RINT"...|AFTER 10|
|000005b0| 30 30 20 43 48 41 52 41 | 43 54 45 52 53 20 41 52 |00 CHARA|CTERS AR|
|000005c0| 45 20 52 45 4d 4f 56 45 | 44 2c 20 54 48 45 22 0a |E REMOVE|D, THE".|
|000005d0| 39 35 20 50 52 49 4e 54 | 22 11 44 49 53 4b 20 44 |95 PRINT|".DISK D|
|000005e0| 52 49 56 45 20 53 48 4f | 55 4c 44 20 42 45 20 43 |RIVE SHO|ULD BE C|
|000005f0| 4c 45 41 4e 45 44 20 57 | 49 54 48 20 41 22 0a 39 |LEANED W|ITH A".9|
|00000600| 36 20 50 52 49 4e 54 22 | 11 46 49 4e 45 20 43 41 |6 PRINT"|.FINE CA|
|00000610| 4d 45 4c 27 53 20 48 41 | 49 52 20 42 52 55 53 48 |MEL'S HA|IR BRUSH|
|00000620| 2e 20 20 54 48 41 54 20 | 57 49 4c 4c 22 0a 39 37 |.  THAT |WILL".97|
|00000630| 20 50 52 49 4e 54 22 11 | 52 45 44 55 43 45 20 54 | PRINT".|REDUCE T|
|00000640| 48 45 20 52 49 53 4b 20 | 4f 46 20 22 3b 51 24 3b |HE RISK |OF ";Q$;|
|00000650| 22 42 59 54 45 20 42 55 | 49 4c 44 2d 55 50 22 3b |"BYTE BU|ILD-UP";|
|00000660| 51 24 3b 22 2c 22 0a 39 | 38 20 50 52 49 4e 54 22 |Q$;",".9|8 PRINT"|
|00000670| 11 41 20 4d 41 4a 4f 52 | 20 43 41 55 53 45 20 4f |.A MAJOR| CAUSE O|
|00000680| 46 20 44 52 49 56 45 20 | 46 41 49 4c 55 52 45 2e |F DRIVE |FAILURE.|
|00000690| 11 22 0a 39 39 20 47 4f | 54 4f 31 31 0a 34 30 30 |.".99 GO|TO11.400|
|000006a0| 20 4d 3d 32 35 36 3a 46 | 3d 2e 3a 4e 3d 2e 3a 41 | M=256:F|=.:N=.:A|
|000006b0| 3d 2e 3a 49 46 41 53 43 | 28 41 24 29 3d 33 36 54 |=.:IFASC|(A$)=36T|
|000006c0| 48 45 4e 34 31 35 0a 34 | 30 35 20 41 3d 56 41 4c |HEN415.4|05 A=VAL|
|000006d0| 28 41 24 29 3a 49 46 41 | 3c 2e 4f 52 41 3e 32 35 |(A$):IFA|<.ORA>25|
|000006e0| 35 54 48 45 4e 34 34 35 | 0a 34 31 30 20 52 45 54 |5THEN445|.410 RET|
|000006f0| 55 52 4e 0a 34 31 35 20 | 42 3d 41 53 43 28 52 49 |URN.415 |B=ASC(RI|
|00000700| 47 48 54 24 28 41 24 2c | 4e 2b 31 29 29 41 4e 44 |GHT$(A$,|N+1))AND|
|00000710| 31 32 37 3a 49 46 42 3e | 37 30 54 48 45 4e 34 34 |127:IFB>|70THEN44|
|00000720| 35 0a 34 32 30 20 49 46 | 42 3d 33 36 54 48 45 4e |5.420 IF|B=36THEN|
|00000730| 34 34 30 0a 34 32 35 20 | 52 45 53 54 4f 52 45 3a |440.425 |RESTORE:|
|00000740| 42 3d 42 2d 34 37 3a 46 | 4f 52 49 3d 2e 54 4f 42 |B=B-47:F|ORI=.TOB|
|00000750| 3a 52 45 41 44 59 3a 4e | 45 58 54 0a 34 33 30 20 |:READY:N|EXT.430 |
|00000760| 49 46 59 3c 30 54 48 45 | 4e 34 34 35 0a 34 33 35 |IFY<0THE|N445.435|
|00000770| 20 41 3d 41 2b 59 2a 31 | 36 5e 4e 3a 4e 3d 4e 2b | A=A+Y*1|6^N:N=N+|
|00000780| 31 3a 47 4f 54 4f 34 31 | 35 0a 34 34 30 20 49 46 |1:GOTO41|5.440 IF|
|00000790| 41 3c 4d 54 48 45 4e 52 | 45 54 55 52 4e 0a 34 34 |A<MTHENR|ETURN.44|
|000007a0| 35 20 50 52 49 4e 54 22 | 11 49 4c 4c 45 47 41 4c |5 PRINT"|.ILLEGAL|
|000007b0| 20 45 4e 54 52 59 22 3a | 46 3d 31 3a 52 45 54 55 | ENTRY":|F=1:RETU|
|000007c0| 52 4e 0a 34 39 30 20 44 | 41 54 41 2d 31 2c 30 2c |RN.490 D|ATA-1,0,|
|000007d0| 31 2c 32 2c 33 2c 34 2c | 35 2c 36 2c 37 2c 38 2c |1,2,3,4,|5,6,7,8,|
|000007e0| 39 2c 2d 31 2c 2d 31 2c | 2d 31 09 0a             |9,-1,-1,|-1..    |
+--------+-------------------------+-------------------------+--------+--------+